home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / archival / genindex / testawk < prev    next >
Encoding:
Text File  |  1992-08-27  |  537 b   |  24 lines
  1. #!/bin/sh
  2. # $Id: testawk,v 1.1 1992/08/09 18:31:34 cross Exp $
  3. #
  4. # script tests whether given version of awk can handle strings
  5. # longer than MAX_SHORT.
  6. #
  7. if [ $# -ne 1 ]; then
  8.     echo usage: $0 name-of-awk-program
  9.     echo example: `basename $0` awk
  10.     exit 1
  11. fi
  12. echo "please wait, this takes approximately 10 seconds..."
  13. (
  14.     while : ; do
  15.     echo "asdfasdfasdfasdfasdfasdfasdfaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
  16.     done
  17. ) | time $1 '{ 
  18.     str = str $0;
  19.     if( NR % 100 == 0 && length(str) > 32768) {
  20.     print "passed.";
  21.     exit;
  22.     }
  23. }'
  24.